home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 61 / 061.d81 / puzzle page 61 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  243 lines
  1. 1 poke55,0:poke56,128:clr
  2. 2 poke53281,0:poke53280,0:printchr$(147)chr$(14)chr$(8);
  3. 5 poke53272,29
  4. 6 dim m$(8),r$(4):f=0:ff=0
  5. 7 fori=1to4:readr$(i):next
  6. 8 data "[210]ead it           ","[210]un it            ","[195]redits           "
  7. 9 data "[205]ain [205]enu         "
  8. 10 fori=1to7:readm$(i):next
  9. 11 data "[195]rossword [201]          "
  10. 12 data "[195]rossword [201][201]         "
  11. 13 data "[195]ross [212]otal          "
  12. 14 data "[204]ogic [208]roblem        "
  13. 15 data "[195]ross [195]alc           "
  14. 16 data "[200]opscotch            "
  15. 18 data "[204]oadstar             "
  16. 20 tp$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  17. 22 md$="[221][155]                                      [146][221]"
  18. 23 ln$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  19. 24 bt$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  20. 25 goto30
  21. 26 print"[147]"tp$;
  22. 27 fori=1to23:printmd$;:next:printbt$:poke2023,125:poke56295,1
  23. 28 fori=217to242:pokei,peek(i)or128:next:return
  24. 30 gosub26
  25. 32 print"[221][156]       [191][191][191] [212]he [208]uzzle [208]age [191][191][191]        [146][221]";
  26. 34 println$;
  27. 60 poke214,21:print
  28. 65 println$;
  29. 70 print"[221][154]   [213]se cursor keys/[210][197][212][213][210][206] to select   [146][221]";
  30. 80 gosub28
  31. 100 print"";
  32. 102 printtab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  33. 104 qq$="[221]                       [221]"
  34. 105 fori=1to9:print""qq$:next
  35. 106 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  36. 107 poke214,5:print
  37. 109 fori=1to7:printtab(9)""m$(i):next
  38. 145 sys52496,0,0,24,39,43008,1,0,0
  39. 146 poke198,0
  40. 150 r=5:m=1:poke214,r:print:printtab(9)"[154]"m$(m):m1=m:r1=r
  41. 155 getk$:ifk$=""then155
  42. 160 ifk$=chr$(13)then200
  43. 165 ifk$="[145]"thenm=m-1:r=r-1:ifm<1thenm=7:r=11
  44. 170 ifk$=""thenm=m+1:r=r+1:ifm>7thenm=1:r=5
  45. 175 ifm<>m1thenpoke214,r1:print:printtab(9)""m$(m1)
  46. 180 poke214,r:print:printtab(9)"[154]"m$(m)
  47. 182 m1=m:r1=r
  48. 185 goto155
  49. 190 :
  50. 200 ifm=7then11000:remreturnls
  51. 220 poke214,10:print
  52. 225 printtab(13)"[153][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  53. 227 q1$="[221]                    [221]"
  54. 229 fori=1to6:printq1$:next
  55. 230 printtab(13)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  56. 232 poke214,12:print
  57. 234 fori=1to4:printtab(15)""r$(i):next
  58. 280 r2=12:m2=1:poke214,r2:print:printtab(15)"[154]"r$(m2):m1=m2:r1=r2
  59. 285 getk$:ifk$=""then285
  60. 290 ifk$=chr$(13)then400
  61. 295 ifk$="[145]"thenm2=m2-1:r2=r2-1:ifm2<1thenm2=4:r2=15
  62. 300 ifk$=""thenm2=m2+1:r2=r2+1:ifm2>4thenm2=1:r2=12
  63. 305 ifm2<>m1thenpoke214,r1:print:printtab(15)"[153]"r$(m1)
  64. 310 poke214,r2:print:printtab(15)"[154]"r$(m2)
  65. 315 m1=m2:r1=r2
  66. 320 goto285
  67. 325 :
  68. 400 ifm2=4thensys52496,0,0,24,39,43008,8,0,0:gosub28:goto150:rem main menu
  69. 401 :
  70. 402 ifm2=3then500:rem credits
  71. 403 ifm2=1then600:rem instr
  72. 410 ifm2=2andm=1then700
  73. 411 ifm2=2andm=2then700
  74. 412 ifm2=2andm=3then700
  75. 413 ifm=4thenf$="travel2048"
  76. 414 ifm=5thenf$="xcalc2048"
  77. 415 ifm=6thenf$="hop2048"
  78. 422 gosub9600
  79. 423 ifff<>2thensys57812"cleveland",8,0:poke780,0:poke781,0:poke782,56:sys65493
  80. 424 ff=2
  81. 425 poke147,0:sys57812f$,8,1:sys62631
  82. 430 poke53272,31:sys2048
  83. 435 sys52496,0,0,24,39,43008,8,0,0:gosub28:poke53272,29:goto150
  84. 440 :
  85. 500 ifm=1thencr$="[201]ke [205]iller"
  86. 505 ifm=2thencr$="[201]ke [205]iller"
  87. 510 ifm=3thencr$="[194]arbara [200]. [211]chulak"
  88. 512 ifm=4thencr$="[194]arbara [200]. [211]chulak"
  89. 515 ifm=5thencr$=" [198]ender [212]ucker"
  90. 516 ifm=6thencr$="[194]arbara [200]. [211]chulak"
  91. 520 sys52496,0,0,24,39,40960,1,0,0
  92. 525 poke214,16:print:printtab(5)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  93. 527 printtab(5)"[221]     [208]uzzle(s) [194]y      [221]"
  94. 530 printtab(5)qq$
  95. 535 printtab(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  96. 540 poke214,18:print:printtab(17-len(cr$)/2)""cr$
  97. 544 t=1
  98. 545 getk$:ifk$<>""then550
  99. 546 t=t+1:ift<100then545
  100. 550 sys52496,0,0,24,39,40960,8,0,0:gosub28:goto285
  101. 555 :
  102. 600 sys52496,0,0,24,39,40960,1,0,0
  103. 605 onmgosub5000,5000,7000,9000,8000,6000
  104. 610 sys52496,0,0,24,39,40960,8,0,0:gosub28:goto280
  105. 625 :
  106. 700 gosub9600
  107. 714 ifm=1thenf$="cross1":f1$="xword2048"
  108. 716 ifm=2thenf$="cross2":f1$="xword2048"
  109. 720 ifm=3thenf$="xsums1a":f1$="xsums.ml"
  110. 721 x=len(f$):poke828,x+3
  111. 722 fori=1tox:poke831+i,asc(mid$(f$,i,1)):next
  112. 723 poke829,asc("@")
  113. 724 poke830,asc("0")
  114. 725 poke831,asc(":")
  115. 726 sys57812f$,8,0
  116. 727 poke780,0:poke781,o:poke782,128
  117. 728 sys65493
  118. 730 poke147,0:sys57812f1$,8,1:sys62631
  119. 732 ifff=1then750
  120. 735 sys57812"xsums.font",8,0
  121. 740 poke780,0:poke781,o:poke782,56
  122. 745 sys65493:ff=1
  123. 750 poke53272,31:sys2048
  124. 760 poke53272,29:sys52496,0,0,24,39,43008,8,0,0:gosub28:goto150
  125. 5000 gosub26
  126. 5005 print"[156]           [195]rossword [208]uzzles          [146][221]";
  127. 5010 println$;
  128. 5020 print"[155]    [213]se the cursor keys to maneuver
  129. 5025 [153]" around the grid and press the keys
  130. 5030 print" to enter your solutions.
  131. 5040 [153]"   (NULL)he definitions are displayed at
  132. 5045 print" the bottom of the screen and
  133. 5050 [153]" respresent the clues both across and
  134. 5055 print" down for the square that the cursor
  135. 5060 [153]" is on.  atns you move the cursor, the
  136. 5065 print" clues will change to reflect your
  137. 5070 [153]" position on the grid.
  138. 5080 print"   [193]ll controls are listed on the
  139. 5085 [153]" playing screen."
  140. 5110 [153]ln$;
  141. 5115 [153]"(NULL)cont             (NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)             wait(NULL)";
  142. 5125 [161]k$:[139]k$[179][177][199](13)[167]5125
  143. 5127 [142]
  144. 6000 [141]26
  145. 6005 [153]"(NULL)clr          left$opscotch (NULL)uzzles           wait(NULL)";
  146. 6010 [153]ln$;
  147. 6020 [153]"list    (NULL)he object of these puzzles is to
  148. 6025 print" fill in the blanks of the five
  149. 6030 [153]" 10-letter words with the pairs of
  150. 6035 print" letters on the left of the screen.
  151. 6040 [153]" valach pair may be used only once.
  152. 6050 print"    [213]se the cursor keys to move to an
  153. 6055 [153]" empty square in the words and then
  154. 6060 print" press the letter (or number) of the
  155. 6065 [153]" letter pair that you wish to move
  156. 6070 print" to that location.  [195]onversely, you
  157. 6075 [153]" may move a letter pair back by
  158. 6080 print" pressing the letter (number) of an
  159. 6085 [153]" empty square.
  160. 6095 print"    [208]ress [198]1 to return to the main
  161. 6100 [153]" menu and asc2 to see the solution.
  162. 6110 poke214,21:print:println$;
  163. 6115 print"[154]             [208]ress [210][197][212][213][210][206]             [146][221]";
  164. 6125 getk$:ifk$<>chr$(13)then6125
  165. 6130 return
  166. 6135 :
  167. 7000 gosub26
  168. 7005 print"[156]         [195]ross [212]otal [208]uzzles          [146][221]";
  169. 7010 println$;
  170. 7020 print"[155]    [195]ross [212]otal [208]uzzles are much like
  171. 7025 [153]" crossword puzzles except that you
  172. 7030 print" must fill in the squares using the
  173. 7035 [153]" numbers 1 - 9 so that they add up to
  174. 7040 print" the totals in the across and down
  175. 7045 [153]" boxes.  (NULL)ou may only use each digit
  176. 7050 print" once in each 'word'.
  177. 7070 [153]"    (NULL)he totals are displayed at the
  178. 7075 print" bottom of the screen and represent
  179. 7080 [153]" the clues for the square that your
  180. 7085 print" cursor is on.  [193]s you move across
  181. 7090 [153]" the grid, the number total will
  182. 7095 print" change.
  183. 7102 [153]"   atnll controls are on screen.
  184. 7110 poke214,21:print:println$;
  185. 7115 print"[154]